devel/test simulate_rad.R

In thierrygosselin/grur: Imputations of RADseq data

rm(list = ls())
library(grur)

sim <- simulate_rad(
  num.pops = 3,
  num.loci = 200,
  div.time = 1000,
  ne = c(50, 200),
  nm = c(0, 0.1),
  theta = 0.2,
  mig.type = c("island", "stepping.stone"),
  num.reps = 10,
  label = "sim.rad.test",
  parallel.core = 10
 )